//02.05.2008

unit U_DBFunctions_;
interface

uses DB, Adodb;

function KayitVarYok(Ado: TADOQuery): boolean; overload;
function KayitVarYok(Ado: TADOTable): boolean; overload;

implementation

function KayitVarYok(Ado: TADOQuery): boolean;
begin
  Result := true;

  if ado.Active = false then begin
    Result := False;
    exit;
  end;

  if ado.RecordCount = 0 then begin
    Result := False;
    exit;
  end;

end;


function KayitVarYok(Ado: TADOTable): boolean;
begin
  Result := true;

  if ado.Active = false then begin
    Result := False;
    exit;
  end;

  if ado.RecordCount = 0 then begin
    Result := False;
    exit;
  end;

end;

end.

 